Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/txp/txplan2.frm

Text File | 1995-05-08 | 28KB | 831 lines

VERSION 2.00
Begin Form frmTxplan
   BackColor       =   &H00FF0000&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Treatment Planner"
   ClientHeight    =   4965
   ClientLeft      =   750
   ClientTop       =   1710
   ClientWidth     =   7365
   ForeColor       =   &H00400000&
   Height          =   5370
   Icon            =   TXPLAN2.FRX:0000
   Left            =   690
   LinkTopic       =   " "
   ScaleHeight     =   4965
   ScaleWidth      =   7365
   Top             =   1365
   Width           =   7485
   WindowState     =   2  'Maximized
   Begin Timer Timer1
      Interval        =   500
      Left            =   3000
      Top             =   3480
   End
   Begin SSPanel Panel3D1
      Alignment       =   6  'Center - TOP
      BackColor       =   &H00800000&
      BevelInner      =   2  'Raised
      BevelOuter      =   1  'Inset
      BorderWidth     =   2
      Caption         =   " "
      Font3D          =   2  'Raised w/heavy shading
      ForeColor       =   &H0000FFFF&
      Height          =   1935
      Left            =   4080
      TabIndex        =   23
      Top             =   2280
      Width           =   3975
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "by RexMueller"
         FontBold        =   -1  'True
         FontItalic      =   -1  'True
         FontName        =   "Swis721 BT"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00FFFF00&
         Height          =   495
         Left            =   960
         TabIndex        =   25
         Top             =   1200
         Width           =   2895
      End
      Begin Label Label1
         BackStyle       =   0  'Transparent
         Caption         =   "PsychSoft⌐ "
         FontBold        =   -1  'True
         FontItalic      =   -1  'True
         FontName        =   "Swis721 BT"
         FontSize        =   36
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00FFFF00&
         Height          =   855
         Left            =   240
         TabIndex        =   24
         Top             =   360
         Width           =   3375
      End
   End
   Begin SSPanel pnlTitle
      BackColor       =   &H00FF0000&
      BevelInner      =   1  'Inset
      BorderWidth     =   2
      Caption         =   "The Treatment Planner. ⌐ by Nebraska Computer Sales "
      Font3D          =   2  'Raised w/heavy shading
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   13.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H0000FFFF&
      Height          =   615
      Left            =   120
      TabIndex        =   22
      Top             =   1320
      Width           =   9375
   End
   Begin SSPanel pnlProblem
      Alignment       =   6  'Center - TOP
      BackColor       =   &H00FF0000&
      BevelInner      =   1  'Inset
      BorderWidth     =   2
      Caption         =   "Problem List"
      Font3D          =   2  'Raised w/heavy shading
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H0000FFFF&
      Height          =   495
      Left            =   120
      TabIndex        =   21
      Top             =   1920
      Width           =   2325
   End
   Begin CommandButton cmdNext
      Caption         =   "Next"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   8160
      TabIndex        =   20
      Top             =   3240
      Width           =   1215
   End
   Begin CommandButton cmdPrevious
      Caption         =   "Previous"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   8160
      TabIndex        =   19
      Top             =   2760
      Width           =   1215
   End
   Begin CommandButton cmdNew
      Caption         =   "New"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   8160
      TabIndex        =   18
      Top             =   2280
      Width           =   1215
   End
   Begin CommandButton cmdDelete
      Caption         =   "Delete"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   8160
      TabIndex        =   17
      Top             =   3720
      Width           =   1215
   End
   Begin CommandButton cmdSearch
      Caption         =   "S&earch"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   8160
      TabIndex        =   16
      Top             =   4200
      Width           =   1215
   End
   Begin CheckBox chkPtsd
      BackColor       =   &H00FF0000&
      Caption         =   "PTSD"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   2280
      TabIndex        =   15
      Top             =   2880
      Width           =   1575
   End
   Begin CheckBox chkAnxiety
      BackColor       =   &H00FF0000&
      Caption         =   "Anxiety"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   240
      TabIndex        =   14
      Top             =   2640
      Width           =   1815
   End
   Begin CheckBox chkAnger
      BackColor       =   &H00FF0000&
      Caption         =   "Anger"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   240
      TabIndex        =   13
      Top             =   2400
      Width           =   1935
   End
   Begin CheckBox chkConfusion
      BackColor       =   &H00FF0000&
      Caption         =   "Confusion"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   240
      TabIndex        =   12
      Top             =   288